home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ MSO2K User Places 1.xpl < prev    next >
Text File  |  2001-03-14  |  2KB  |  81 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="2"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2000\Open/Save Dialog"
  5. "NAME"="User Place #1"
  6. "VERSION"="1.03"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Place Name"
  9. "TEXT 2"="Exact Path"
  10. "DESCRIPTION 1"="Office 2000 has an "Places Bar" on the left side of its Open/Save dialog."
  11. "DESCRIPTION 2"="You can also add you own folders to this bar. First enter a name for the folder (in "Name"), then enter the exact path to this item (in "Path")."
  12. "DESCRIPTION 3"="NOTE: To remove a user-defined value, clear both the "Name" and the "Path" field!"
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to Nat Gildersleeve [natgild@netptc.net] for the left vs. right bug notice!"
  17. "COMMENT 2"=" "
  18.  
  19.  
  20. sP1="HKCU\Software\Microsoft\Office\9.0\Common\Open Find\Places\UserDefinedPlaces\Place1\"
  21.  
  22.  
  23. sPCheck="HKCU\Software\Microsoft\Office\9.0\"
  24. Sub Plugin_Initialize 
  25. if RegPathExists(sPCheck) then
  26.    s=RegReadValue(sP1+"Name")
  27.    Call SetUIElement(1,s)
  28.  
  29.    s=RegReadValue(sP1+"Path")
  30.    Call SetUIElement(2,s)
  31. else
  32.  Call Disable()
  33. end if
  34. End Sub
  35.  
  36. Sub Plugin_CheckData(ElementIndex)
  37. End Sub
  38.  
  39. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  s=GetUIElement(1)
  41.  s2=GetUIElement(2)
  42.  Call SetIt(sP1,s,s2)
  43.  
  44.  
  45. End Sub
  46.  
  47. Sub SetIt(Path,Name,Folder)
  48.  if len(Name)>0 then
  49.     'set it
  50.     Call RegWriteValue(Path+"Name",Name,1)    
  51.     Call RegWriteValue(Path+"Path",Folder,1)
  52.  
  53.     Call Logoff
  54.  else
  55.     'remove it....
  56.     s=RegReadValue(Path+"Name")
  57.     if IsEmpty(s)=false then
  58.        'value set... remove it!
  59.        cnt=RegEnumValues(Path)
  60.  
  61.        for i=1 to cnt  
  62.            sName=RegEnumElement(i)
  63.            Call RegDeleteValue(Path+sName) 
  64.        next 
  65.  
  66.        Call RegDeletePath(path)
  67.  
  68.        Call MsgInformation("User defined place removed!")
  69.        Call Logoff
  70.     end if
  71.  end if
  72.  
  73. end sub
  74.  
  75.  
  76.  
  77.  
  78.  
  79. Sub Plugin_Terminate 
  80. End Sub
  81.